﻿Module LogStuff
    Public Sub ErrorLogWrite(ByVal ErrorString As String, ByVal Item As String)
        Form1.LogListBox.Items.Add("   " & ErrorString & "::" & Item)
        Form1.LogListBox.SelectedIndex = Form1.LogListBox.Items.Count - 1
        Form1.LogListBox.SelectedIndex = -1
        Form1.LogListBox.Refresh()
    End Sub

    Public Sub WriteMessage(ByVal Message As String)
        Form1.LogListBox.Items.Add("   " & Message)
        Form1.LogListBox.SelectedIndex = Form1.LogListBox.Items.Count - 1
        Form1.LogListBox.SelectedIndex = -1
        Form1.LogListBox.Refresh()
    End Sub
End Module
